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BEGIN 
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!® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
!® DIGITAL EQUIPMENT 1 CORPORATION, MAYNARD, MASSACHUSETTS. 
'@ ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS A gt el ae A_LICENSE AND MAY BE USED AND COPIED 
'* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
!* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOF TWAR E OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR GTHERWISE MADE AVAILABLE TO ANY 
!* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- POkat ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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! “ 
FACILITY: F11ACP Structure Level 2 . 
ABSTRACT: 
This routine implements the MODIFY function. " 
5 | ENVIRONMENT : . | 
4 1 i STARLET operating system, including privileged system services | 
4 § : and internal exec routines. ' 
4 Boek 
4 . ea 
4 pee : 
é 06 AUTHOR: Andrew C. Goldstein, CREATION DATE: 6-Jan-1977 23:03 | 
4 ‘3 MODIFIED BY: | 
3 51 v04-001 ACG65998 Andrew C. Goldstein, 6-Sep-1984 15:33 
5 3¢ Checksum file header after setting revision date 
54 1! v03-014 CDS0007 Christian D. Saether 14-Aug-1984 | 
3? } Modify handling of extension fcbs. 
3$ i v03-013 CDS0006 Christian D. Saether 22-Apr-1984 
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Modify access arbitration. 


v03-012 ACG0412 Andrew C. Goldstein, 22-Mar-1984 18:26 
Implement agent access mode support; add access mode to 


sous gS 


protection check call 


v03-011 CDdS0005 Christian D. Saether 19-Dec-1983 
Use BIND_COMMON macro to reduce number | 
of external COMMON declarations. 


v03-010 CDS0004 Christian D. Saether 25-Sep-1983 
Modify SERIAL_FILE interface. 


v03-009 CDS0003 coeiegion D, Saether 25-Sep-1983 
Manually merge ACG03435, ACG56916. 


voc 

H 1! 

3 1! 

3 1! 

3 1! 

.. & 1! 

3 8 1! 

; «666 1! 

3; 6 : } 

; e9 1 i 

; 1! 

: | 

ai oe 1 

. £ 1! 

; ig ii 

; | 676 1! v03-008 ACG0343 Andrew C. Goldstein 19-Jul-1983 16:44 

3 2 : Inhibit revision counting if NORECORD is specified | 
: 6 1/ v03-007 ACG56916 Andrew C. Goldstein, 21-Jun-1983 14:11 
; ee : Update file revision and expiration when modified 
: 80 1 v03-006 LMPO149 L. Mark Pilant, 13-Sep-1983 11:27 

3 1 1? Correct a logic problem that caused problems during the 

: ¢ : protection check of a write attribute operation. 

: 1 i v03-005 cps0002 Christian D. Saether 4-May-1983 
; 5 : } Add call to SERIAL_FILE to interlock file processing. | 
: 87 8 1 v03-004 ¢ps0001 Christian D. Saether 20-Apr-1983 

; 8 Ss F: Changes to arbitrate extend and truncate access 

; 8 089 1! in a cluster. Truncate now requires exclusive 

; we 090 1! access to the file to succeed. 

3 4 1 : Change interface to TRUNCATE routine. 
; 38 ‘ 1 i v03-003 LMPO0S9 L. Mark Pilant, 21-Dec-1982 11:37 
; 94 94 1! Always create an FCB for a file header. This eliminates 

; «95 95 : a lot of special case FCB handling. | 
; 39 39 1! v03-002 LMP0036 L. Mark Pilant, 17-Aug-1982 10:15 
3 s 84 : Add support for ACL's. | 
: 100 1 1/ v03-001 ACG0282 Andrew C. Goldstein, | 6-Apr-1982 16:08 | 
3 19¢ : 1 ' Check for device write-locked before attempting operations 
;-4 4 1 5 1 v02-007 ACG0223 Andrew C. Goldstein, 17-Nov-1981 21:49 | 
3 ine ; : : : Allow modification of directory version Limit | 
: 196 106 1! v02-006 ACGO171 Andrew C. Goldstein, | 7-May-1980 18:34 
; 198 19 ' Condition check of truncate lock count on presence of FCB 
: 1 196 1 v02-005 ACG0167 Andrew C. Goldstein 16-Apr-1980 19:27 
; 110 110 1! Previous revision history moved to F11B.REV 

: #111 111 «1 fee 
; 118 18 1 
: 11 13 1 
: 116 114 1 LIBRARY ‘SYSS$LIBRARY:LIB.L32'; 


—_ 


REQUIRE *SRCS:FCPDEF .B32'; 
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IFY 1-5 -1984 00:46: VAX-11 BLliss-32 V4.0-742 Page 4 
yoe-001 12286871382 99°98:47 DISKSVMSMASTER:CF11X.SRCIMODIFY.832;2 : (2) | 
; 138 1} 7 } GLOBAL ROUTINE MODIFY =: L_NORM = ; 
: 120 1109 1 !44 ; 
3; te 11 1! : 
i 19 111} J | FUNCTIONAL DESCRIPTION: | 
; 1 ¢ 1337 ! } This routine implements the MODIFY function. | ‘ 
3 (3 $ 1115 1 ! CALLING SEQUENCE: : 
. <3 1118 1} MODIFY () ; 
; 128 117 1! ; 
; 129 1338 1! INPUT PARAMETERS: 
ee 119 1! NONE 
; «(131 1120 1! 
3 (1 ; 1121 1°! IMPLICIT INPUTS: 
> 11 ¢ 1! CURRENT_WINDOW: window for file 
3; 3 11 1! PRIMARY FCB: FCB of file 
; «135 1124 1! 10_PACKET: 1/0 packet in process 
; : 1153 ! FICE_HEADER: address of current file header | 
; 138 1197 1 ! OUTPUT PARAMETERS: 
; 139 1128 1! NONE 
; 140 1129 1! 
> (141 1130 1. ! IMPLICIT OUTPUTS: 
; 14g 1131 1! NONE 
; 14 11 ; 1! 
3 144 11 1 ! ROUTINE VALUE: 
; 145 1134 1 | NONE | 
; 168 bh: oe 
; 14 1136 1 ! SIDE EFFECTS: 
; 148 137 1! file and FCB modified 
: 149 a 1! 
3 130 1139 1 !-- 
3 131 1140 1 
; 126 1141 BEGIN | 
3; 1 Ne6 
3s 6136 114 LOCAL 
s W395 1144 FCB_CREATED, ! flag indicating new FCB created 
; 136 1145 FIND_MODE, ! mode for FIND call . 
3; 1146 ABD : REF BBLOCKVECTOR C,ABDSC_LENGTHI, 
; 158 1147 ' buffer descriptors ‘ 
: 159 1148 FIB : REF BBLOCK, ! FIB ; 
: 160 1149 FCB : REF BBLOCK, ! FCB of file : 
: 161 1150 HEADER : REF BBLOCK, ! file header : 
: 196 413) STATUS; ! Routine exit status 
3 
3; «164 1188 BIND_COMMON; 
; 165 1154 | 
3 166 1155 EXTERNAL ROUTINE 
; 1 1138 REBLD_PRIM_FCB L_NORM NOVALUE, ! rebuild primary fcb from header ' 
; 168 115 BUILD EXT_FCBS =: LINORM NOVALUE, ! build extension fcb chain. : 
3 is? 1158 ARBITRATE-ACCESS : C_JSB_2ARGS, ! arbitrate access interlocks. | ; 
; 170 1159 CONV_ACCLOCK : L_NORM, ' convert file access lock : 
s ii 1160 LOCK COUNT : L_NORM, ' determine number of locks. ; 
; 76 1161 SERIAL_FILE : L_NORM, ! interlock file processing. : 
SF 116¢ GET_FIB : LINORM, ' get FIB of request ; : 
3 > ! get placement data from u 

174 116 GET_LOC_ATIR L_NORM ! get pl t data f attribute List 


2 


2 


01 
16-Sep-1984 00:46: VAX-11 Bliss-32 V4.0-742 Page 
13-08-1382 99:48:99 LEC LUMEAASTERSLY 11g, GRE IMODIFY.832:0 . (2) 
: 175 1 GET_LOC : L_NORM, ! get placament data | 
3 1% 1165 FIND : L_NORM, : ne name ‘n d rectory 
3 i? 11 3U] TCH VOLUME : LUNORM, ! switch context to right volume 
me 116 SEARCH FC : LUNORM, ' search FCB List 
ip og A mo 
3 : ko ° ' create an 
7 119 CHECK PROTECT : L_NORM, ! check file protection 
3 3 ¢ 1171 SET_REVISION : LINORM, ' set file revision end expiration 
3 7 1196 WRITE ATTRIB : LLNORM, ! write file attributes 
. 4 117 EXTEND : LINORM, ! extend file 
: 185 1174 TRUNCATE : LUNORM, ' truncate file 
cf 1175 CHECKSUM : LLNORM, ! checksum the file header 
,c% 1378 UPDATE _FCB : LUNORM; ! rebuild fcb from header 
wi 
: 19 ne First find the buffer descriptor, FIB, FCB, etc., and read the header. 
; 198 1182 } ! inter to buffer d ipt 
3 ! pointer to buffer descriptors 
; 138 1188 14 = Ph st 375 ot sy suaileatalapetcialte alBsu.DESCRIPTI; 
3 = . : 
; 196 1185 2 IF FISEFTBSW_VERLIMIT? GTRU 32767 
; 44 Hy THEN ERR_EXIT (SS$_BADPARAM) ; 
: 199 1188 2 IF .FIBCFIBSV_ALLOCATRI 
; 00 1189 THEN GET_LOC_ATTR (.ABD, .FIB); 
3 9} 1130 GET_LOC T.FIB, LOC_RVN, LOC_LBN); | 
; 08 1138 If a directory ID is present, do a directory search first. 
: 205 1194 2_ 
5 oe 1195 FIND_MODE = 0; | 
3; 2 1138 If .FIBCFIBSW_VERLIMIT] NEQ 0 
; 208 119 THEN FIND zs : 
; 209 1198 2 IF .CLEANOP_FLAGSCCLF_DIRECTORY) 
3 10 1199 THEN FIND (.ABD, sate .F IND_MODE); 
; " 1307 SWITCH_VOLUME (.F IBLF ie$w_FID_RVNJS; 
: i§ 1 4 ! If there is a file open on the channel, check the file ID returned by the 
3 14 120 ! FIND against the file ID that is open. If they are different, drop the FCB 
: 15 1204 ' and window addresses on the floor. 
He Be 
; 18 1207 2 IF PRINARY_FCB NEQ 0 | 
; 220 1209 IF .PRIMARY_FCBCFCBSW_FID_NUM] NEQ -F 1BCF 1B$_F1D_NUM] 
> 2e1 10 OR. ,PRIMARY_F.CB FCBS$W-FID"RVNJ NEQ .F IBLF IBSW-FID-RVN 
; : 1 1 BEGIN 
: 4 121 PRIMARY_FCB = 0; 
: 5 1214 CURRENT_WINDOW = 0; | 
3 $ : 1? END; 
; : ' i : Sychronize further processing on this FID. 
: 230 121 ; | 
3 1 1220 PRIM_LCKINDX = SERIAL_FILE (FIB CFIBSW_FIDI); 
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1B-Sep-1986 00:46:29 vAKeHI BL ieee 


FCB = SEARCH _FCB (F IBLF IBSW aa 
HEADER = READ_HEADER (FIBLFIB w_Fipi, -FCB); 
! At this point build the necessary FCB List if the file is not accessed. 
; This is necessary to allow the ACL to be built. 
FCB_CREATED = 0; 
If .FCB EQL 0 
THE 
BEGIN 
FCB_CREATED = 1; 
cS = KERNEL_CALL (CREATE_FCB, .HEADER); 


ND; 
PRIMARY_FCB = .FCB; 


' If the file is multi-header, read the extension headers and create 
extension FCB's as necessary. Finally, read back the primary header. 


! Record FCB for external use 


IF .FCB_CREATED 
BUILD_EXT_FCBS (.HEADER) 
IF .FCB CFCBSV_STALEJ 
THE 
BEGIN 
REBLD_PRIM_FCB (.FCB, .HEADER); 
BUILD_EXT_FCBS (.HEADER); 
END; 
Check that the volume is write enabled. 
IF .BBLOCK CCURRENT UCBCUCBSL_DEVCHAR], DEVS$V_SWLJ 
THEN ERR_EXIT (SS$_QRITLCK); 
' Arbitrate access interlocks. If this is the accessor, then the file 
must be write accessed. Count a write to the file. 
IF .CURRENT_WINDOW NEQ 0 
THEN 
BEGIN 


IF NOT .CURRENT_WINDOWLWCBSV_WRITE] 
THEN ERR_EXIT (SS$_NOPRIV); 


If .F18 CFIBSV_TRUNC) 
THE 


IF .FCB CFCBSW_REFCNTI wii 1 
OR LOCK_COONT (.FCB CFCBSL_ACCLKID]) NEQ 1 


Page 
JMODIFY.832;2 (2) | 


£12 | 
1o=ge0- 138 99:98:93 PN imGMASTER SCE Tix. sReaMoDIFY.B32:0°%" (2). 


ERR_EXIT (SS$_ACCONFLICT); 
Jf NOT .FIBLFIBSV_NORECORD’ 
CURRENT _WINDOW CWCBSL_WRITES) = .CURRENT_WINDOW CWCBSL_WRITES] + 1; 


~~ 
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END 
! If it is not, then the file must not be locked against modification 
and the caller must pass file protection. Count a revision to the file. 
ELSE 
BEGIN 
A a CFIBSV_EXTEND] OR .FIB CFIBSV_TRUNC] 
BEGIN 
LOCAL 
CURR_LKMODE ; 


CHECK PROTECT (WRITE_ACCESS, .HEADER, .FCB 
MAXU T.10_PACKETCIRPSV_MODES, .FIBCFIBSB_AGENT_MODEJ)); 


CURR_LKMODE = .FCB CFCBSB_ACCLKMODE]; 
If .FIB CFIBSV_EXTEND] 
THEN 

BEGIN 


IF .FIBCFIB$V_TRUNC) 
THEN ERR_EXIT~(SS$_BADPARAM) ; 


IF NOT ARBITRATE ACCESS (FIBSM_WRITE, .FCB) 
ERR_EXIT (SS$_ACCONFLICT); 
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ELSE 
! This is a truncation. Truncation is only allowed if there is no other 
ile whatever. 


access to the f 


eae dunte ee eb ~6nd-ase se 
SSRRUN SS eNO run—OOMNOMrUN—O oo 


BEGIN 
— ARBITRATE_ACCESS (FIBSM_NOREAD, .FCB) 
ERR_EXIT (SS$_ACCONFLICT); 


me ee ee me ee me a a ed nd ed ed od ed 
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3 IF .FCB CFCBSW_REFCNT3 NEG 0 
$ Ms LOCK_COONT (.FCB CFCBSL_ACCLKIDJ) NEQ 1 
0 BEGIN 
1 CONV_ACCLOCK (.CURR_LKMODE, .FCB); 
4g ERR_EXIT (SS$_ACCONFLICT); 
4 ND; 
44 
45 END; ' of trunc 


Se 


uw 


CONV_ACCLOCK (.CURR_LKMODE, .FCB); 
END; ! of trunc or extend 
cen” -F IBCF IBSV_NORECORD) 


N 
REVISION f ueseen. 1); 
CHECKSUM (. HEADER) 


4 
: 
4 
4 
END; 
END; 
If an attribute List exists, perform the write attributes operation. 


iene PACKETCIRPS$SW_BCNT] GTR ABDSC_ATTRIB 


BEGIN 
WRITE_ATTRIB (.HEADER, .ABD, 1); 
HEADER = FILE HEADER; 


ERE CKSUA ( HEABER); 


! If the extend enable bit is on, perform the extend operation. 
i If the truncate bit is on, perform the truncate operation. If both are 
on, it is an error. 
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IF (.FIBCFIBSV_EXTEND) mn -F IBCFIB$V_TRUNCJ) 
AND .CURRENT_VUBCVCB$V_NOALLOC 
THEN ERR_EXIT (SSS CORITLKDS 


IF .FIBCFIBSV_EXTEND) 

THEN 
BEGIN 
EXTEND (.FIB, .HEADER); 
END; 


IF jf 1BCFIBSV_TRUNC) 

TRUNCATE (.FIB, .HEADER, .FIB CFIBSL_EXVBNJ); 
HEADER = .FILE HEADER; 
CHECKSUM (.HEADER) 
UPDATE_FCB (. HEADER) : 
RETURN 1; 


END; ' end of routine MODIFY 


' checksum the file header 
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on ee 138s 98:98: gF HN eet ae Nt once mopiey.032:0°%" 

DO 00099 VL _—-RO, HEADER ; 

D4 0009¢ CLRL =F CB_CREATED : 

D 9 TSTL FCB F 

D1 A BNEQ 7 : 

. oe A MOVL #1, FCB_CREATED : 

4 DD OOOA PUSHL ER ~ : 

€. A CALLS i CREATE FCB : 

i) AC MOVL Fe 3 

D AF 7$ MOVL a0, (BASE ; 

£8 00083 BLBS FCB CREATED, 8$ : 

23 «A3 «£9 00086 BLBC he : 

18 BB OBA PUSHR #* mck : 

Q FB OO00BC CALLS #2, RS Au> _PRIM_FCB : 

4 DD 000C1 8s PUSHL HE EA : 

01 FB 00¢ CALLS BUILD sx! FCBS ; 

94 AA DO 00068 98 MOVL “16848 - RO ; 

01 a 00CcC BBC (Ase) 10$ : 

O0F4 31 9001 BRW ong : 

OC AA 09 004 10$:  MOVL  12(BASE), RO ; 

2D 13 00008 BECL 14$ : 

1 €0 SO0DA BBS #1, 11(RO), 118 ; 

4 BF OO0DF CHMU = #36 ; 

04 OO0E| RET ; 

17 a2 £9 OOOE2 11$:  BLBC 23(FIB), 12$ F 

18 #=A3 BI O00E6 CMPW 9 24( FCB). #1 : 

61 12 OOOEA BNEQ 19$ ; 

48 A3 DD OOOEC PUSHL 72(FCB) : 

01 FB OOOEF CALLS #1, LOCK_COUNT F 

50 D1 OO0F4 CMPL RQ # : 

7F iF O0F7 BNEG 22$ : 

15 €0 000F9 12$: BBS #21, (FIB), : 

0c AA 00 000FD MOVL 12(BASE), ko’ F 

28 AO 06 90191 INCL  40(RO) : 

0091 31 00104 13$: RW 25$ ; 

16 A2 95 00107 14$:  TSTB 22(FIB) : 

04 19 O010A BLSS 15$ : 

17 A2 €9 0010¢ BLBC 23(FIB), 24$ F 

90 AA DO 00110 15$:  MOVL -112(BASE), RO : 

0 fF 0114 EXTZ2V #0, #2, 11(RO), -(SP) : 

2— A2 91 OO11A CMPB 0 s«G6 CF IBS, (SP) : 

04 1B O11 BLEQU 16$ F 

2E Ag 9A 001 MOVZBL 46(FIB), (SP) : 

3 DD 00124 16$: USHL FCB : 

4 DD 4 6 PUSHL HEADER : 

01 DD 001 PUSHL # : 

04 FB OO12A CALLS #4, CHECK_PROTECT : 

0B A3 9A O012F MOVZBL Hy {FCB , CURR_LKMODE ; 

16 Ag 3 133 TSTB (FIB : 

17 18 001 BGEQ $ : 

17 a2 €9 001 BLBC (FIB : 

14 BF 13C 17$: CHMU #20 ; 

4 0013€ RET : 

3 pO 0013F 18%:  MOVL FCB, RI : 

0100 BF 14g MOVZWL  # : 

00006 14 BSBW Reel feat _ACCESS : 

F 146A BLBS R) 23$ : 

1 0014D 19$: BRB 22$ : 


esa — — segansenmemnemnennseins : ‘ , 


; Routine Size: 507 bytes, Routine Base: $CODE$S + 0000 


J 12 
FY 13 -Sep-1984 VAX-11 Bliss-32 V 4.0 742 ge 11) 
-001 14-Sep ats 99: $8: $3 DISKSVMSMASTER: chi iX.SRCIMODIFY.832; (2) 
1 3 00 0014F 208:  MmOvL FCB, RI : 1322) 
2) 0400 BF 1 ¢ MOVZWL #1024, RO : i 
00006 1 BSBW = ARBITRATE_ACCESS 3 | 
1B E9 0015A BLBC Osa 4 : 
18 «OA : 150 TSTW 4 (FCB) + 1326) 
Op 16 BNEQ 1$ : 
48 A3 DD 0016 PUSHL ¢ (FCB) t 1327 
00006 cr 1 FB 0016 CALLS #1, LOCK_COUN) : 
1 0 Dt 16A CMPL RO ral : 
13 0016D BEQL «6-23 F 
DD OO16F 218: PUSHL B ; 1330 
55 (OD 91 PUSHL CURR_LKMODE ; 
0000G CF 9 FB 001 CALLS #@ CONV ACCLUCK : 
0800 8F BF 178 228:  CHMU #264 + 1331 
4 0017C RET : 
53 DD 0017D 23$:  PUSHL FCB + 1336 
DD 0017F PUSHL CUR ; 
00006 CF 02 FB 0181 CALLS ; CON, REcLoCK : 
1 62 15 € 91 24$: BS {, (FIB) + 1340 
01 DD 0018A PUSHL + 1343 
54 DD 0018C PUSHL rns ; 
00006 CF 02 FB 0018 CALLS # ET REVISION ; 
4 DD 0019 PUSHL HE FADER : 1344 
01 FB 00195 CALLS HE CKSUM : 
50 90 AA dO 00198 25$:  MOVL aioieasere RO + 1351 
32. ad B1 0019C MPW = SO(RO), #5 : 
14 1B 001A0 BLEQU 38 ; 
01 DD 001A2 PUSHL + 1354 
0050 8F BB OO1A4 PUSHR  #*M<R4 : 
00006 CF 03 FB OO1A8 CALLS #3, WRITE_ATTRIB : 
54 04 AA DO O01AD MOVL  4(BASE), READER : 1355 
54 DD 00181 PUSHL HEADER : 1356 
67 01 EB 01B3 CALLS #1, CHECKSUM ; 
16 A2 95 00186 26$: + TSTB 2{F 18) : 1364 
04 19 00189 BLSS 3 ; 
3 17 A2 €9 0016B BLBC 23(FIB), 298 ; 
50 98 AA 00 001BF 27$ MOVL -104(BASE), RO + 1365 
05 0B AO 04 €1 001C3 BBC #4, 11(RO), 298 : 
025c 8F BF 001CB 28%:  cHMU #604 : 1366 
04 O1CC RET : 
16 A2 95 001CD 298 TSTB 2(F IB) : 1368 
07 18 9100 BGEQ ; 
14 BB 001D PUSHR w°McR2 R4> + 1371 
00006 cf 0 FB 0104 CALLS EXTEND ; 
A 17 Ao € 109 308: BLBC sri 1$ : 1374 
1¢ A2 DD 001DD PUSHL : 1376 
14 BB OO1E PUSHR $618) : 
00006 <¢F 03 FB OOIE CALLS #3 TAONCA TE ; 
54 04 AA DO OO1E? 318 VL 4 (BASE), HEADER : 1378 
54 DD OO1EB PUSHL HEADE : 1379 
67 or FB OO1ED CALLS #1, CHECKSUM ; 
4 DD OO1F PUSHL FA : 1380 
00006 cf or FB O1F CALLS #1, UPDATE_FCB ; 
0 1 p 1F MOVL #1, RO : 1382 
4 OO1FA RET : 1384 


UB Let 


Name 
SCODES 


File 


-$255$DUA28 : CSYSLIBILIB.L32;1 


15-Sep-1984 99:98:87 PEE SumGhaStERsCHTixcoReamopiFY.832:0°% 


PSECT SUMMARY 
Bytes Attributes 
507 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


ouacasee Syabe(s eocooe Pages Processing 
Total Loaded Percent Mapped Time 
18619 50 0 1000 00:02.0 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:MODIFY/OBJ=OBJ$:MODIFY MSRC$:MODIF Y/UPDATE=(ENHS: MODIFY) 


Size: 507 
Run Time: 126 
Elapsed Time: i 

3 


Used: 319 pages 
meee hy ag tonplete’ 


23 + 0 data bytes 
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